inherited F_SubCategoria: TF_SubCategoria
  Caption = 'Cadastro de Sub Categoria '
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgDados: TPageControl
    inherited tsCons: TTabSheet
      inherited pnConsulta: TPanel
        inherited dbCons: TDBGrid
          Columns = <
            item
              Expanded = False
              FieldName = 'SUB_COD'
              Title.Caption = 'C'#243'digo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SUB_DES'
              Title.Caption = 'Descri'#231#227'o'
              Width = 164
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'GRU_DES'
              Title.Caption = 'Grupo'
              Width = 226
              Visible = True
            end>
        end
      end
      inherited Panel2: TPanel
        inherited EditCons: TEdit
          OnKeyPress = EditConsKeyPress
        end
      end
    end
    inherited tsDados: TTabSheet
      inherited pngBotton: TPanel
        inherited btnExcluir: TBitBtn
          OnClick = btnExcluirClick
        end
      end
      inherited Panel3: TPanel
        object Label1: TLabel
          Left = 8
          Top = 16
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object Label2: TLabel
          Left = 61
          Top = 16
          Width = 45
          Height = 13
          Caption = 'Categoria'
        end
        object Label3: TLabel
          Left = 8
          Top = 56
          Width = 48
          Height = 13
          Caption = 'Descri'#231#227'o'
        end
        object lblGru: TLabel
          Left = 114
          Top = 36
          Width = 18
          Height = 13
          Caption = '<..>'
        end
        object EditCodigo: TEdit
          Left = 8
          Top = 32
          Width = 49
          Height = 21
          Color = clBtnFace
          Enabled = False
          ReadOnly = True
          TabOrder = 0
        end
        object EditCategoria: TEdit
          Left = 61
          Top = 32
          Width = 49
          Height = 21
          TabOrder = 1
          OnDblClick = EditCategoriaDblClick
          OnExit = EditCategoriaExit
        end
        object EditDescricao: TEdit
          Left = 8
          Top = 72
          Width = 169
          Height = 21
          CharCase = ecUpperCase
          TabOrder = 2
        end
      end
    end
  end
  inherited QryCons: TMDOQuery
    SQL.Strings = (
      'Select '
      'SUB.SUB_COD,  '
      'SUB.SUB_DES, '
      'SUB.SUB_GRU, '
      'GRU.GRU_DES '
      ''
      ''
      'From SUBGRUPO SUB'
      ''
      'Left Outer Join GRUPO GRU'
      '  On(GRU.GRU_COD = SUB.SUB_GRU) ')
  end
end
